DsplyMsg "The number dialed is busy. Trying second number."
Talert "The number dialed is busy. Please try again later.\0D\0DTo find another local access number, select Get Local # from the Locality pop-up menu, and click on Sign On."
IfEq ~ATMP 1
OneAlert 1 "\0D\0DFor more information, select Help from the Apple menu."
DsplyMsg "The number dialed is not answering. Trying second number."
TAlert "The number dialed is not answering. Please try again later.\0D\0DTo find another local access number, select Get Local # from the Locality pop-up menu, and click on Sign On."
IfEq ~ATMP 1
OneAlert 1 "\0D\0DFor more information, select Help from the Apple menu."
Talert "The access company failed to respond. Please try again later.\0D\0DTo find another local access number, select Get Local # from the Locality pop-up menu, and click on Sign On."
IfEq ~ATMP 1
OneAlert 1 "\0D\0DFor more information, select Help from the Apple menu."
!Some new error codes since error 1 was getting meaningless.
-Label 37 {time-out}
TAlert "It has taken too long to process your connection.\0D\0D1. Test your modem with another communications program.\0D2. Verify the local access number by selecting Get Local # "
IfEq ~ATMP 1
OneAlert 1 "from the Locality pop-up menu, then clicking on Sign On.\0D\0DFor more information, select Help from the Apple menu."
Exit -1
!
-Label 38 {modem command error}
TAlert "Your modem is not accepting our commands.\0D\0D1. Turn your modem off, then back on.\0D2. Click on Setup, and verify your modem type selection."
Jump "36"
!
-Label 40
TAlert "The modem has reported no dial tone.\0D1. Check the phone line connections.\0D2. Make sure the line from the wall is connected to the jack labeled Line, Telco, Wall, or Jack.\0D"
IfEq ~ATMP 1
OneAlert 1 "3. Use a telephone to check for a dial tone.\0D\0DFor more information, select Help from the Apple menu."
Exit -1
!
-Label 41
TAlert "The number dialed did not connect to the access company.\0D\0D1. Verify your setup information by clicking on Setup.\0D2. Verify the local access number by selecting Get Local # "
IfEq ~ATMP 1
OneAlert 1 "from the Locality pop-up menu, then clicking on Sign On.\0D\0DFor more information, select Help from the Apple menu."
Exit -1
!
-Label 42
TAlert "The modem was unable to get a carrier signal.\0D\0D1. Verify your setup information by clicking on Setup.\0D2. Verify the local access number by selecting Get Local # "
IfEq ~ATMP 1
OneAlert 1 "from the Locality pop-up menu, then clicking on Sign On.\0D\0DFor more information, select Help from the Apple menu."
Exit -1
!
-Label 43
TAlert "The modem detected a timeout.\0D\0D1. Test your modem with another communications program.\0D2. Verify the local access number by selecting Get Local # "
IfEq ~ATMP 1
OneAlert 1 "from the Locality pop-up menu, then clicking on Sign On.\0D\0DFor more information, select Help from the Apple menu."
Exit -1
!
-Label 44
OneAlert 1 "The modem has lost carrier signal.\0D\0DPlease try signing on again. "
Exit -1
!------------------------------------
-Label CheckPhoneLength
!
NewString sPhoneNumber
SetVar sPhoneNumber ~FONE
NewLngInt lCount
SetVar lCount 6
!
-Label TopPhoneLoop
IfEq lCount 0
Jump "FinishPhoneLength"
DecVar sPhoneNumber
DecVar lCount
Jump "TopPhoneLoop"
!
-Label FinishPhoneLength
IfEq sPhoneNumber ""
Jump "EmptyPhone"
Return
!
-Label EmptyPhone
OneAlert 1 "You must enter phone numbers before signing on.\0D\0DSelect ""Setup"" and verify the phone numbers you have entered."
Exit -111
!------------------------------------
!
*-Label 0 {Hangup Sequence}
*CanBtn "2"
!
*Flush
!
*ClrMchStr
*MatchStr "1" "OK" { Dont look for an echo, may be a}
*MatchStr "1" "NO" { false echo. Any type of match is good}
*MatchStr "1" ">" { Special case for Avatex 1200 modems}
!
*Pause 180 { Pause for 3 sec min gap }
*Xmit "+++" { Get the modems attention}
*Pause 180 { Pause for 3 sec min gap }
!
*ClrMchStr
*MatchStr "1" "OK"
*MatchStr "2" "CARRIER" {Any type of match is good}
*MatchStr "1" ">" { Special case for Avatex 1200 modems}
!
*Pause 180 { Pause for 3 sec min gap }
*Xmit "+++" { Get the modems attention}
*Pause 180 { Pause for 3 sec min gap }
!
*-Label 1
*ClrMchStr
*MatchStr "2" "ERROR"
*MatchStr "2" "OK"
*MatchStr "2" "CARRIER"
*MatchStr "2" ">" { Special case for Avatex 1200 modems}
!
*Pause 40
*Xmit "$ATTENTION$H\0D"
*Wait 300
!
*-Label 2
*Pause 40 { Allow modem to settle between commands.}
